Function mat()

Set mat = New edocsetting

End Function

Set mth = mat
mth.dc

Function Environmentpath()
   Environment.LoadFromFile("D:\learning\learningApp\VBScriptfiles\Environment.xml")
End Function

Class edocsetting
Function dc()
   On error resume next
   Dim RepPath,RDtblshtname,DTrowcount ,i,HRdocstatus,doctype,cpdf ,cdoc ,chtml ,ctxt ,cxls ,czip ,Clntcode ,cprimail ,Automation, poptext ,lbltext,exresult,Acresult ,Pos,mth
'RepPath = "D:\learning\learningAPP\ObjectRepositories\learningDocSetting.tsr"
'Repositoriescollection.Add (RepPath)

	Browser("learning").Page("learning").Image("setup_nm").Click
	Browser("learning").Page("learning").Link("Document Settings").Click

Call Environmentpath

DataTable.AddSheet(Environment("eDocumentSetting"))


RDtblshtname = DataTable.GetSheet(Environment("eDocumentSetting")).Name

DataTable.ImportSheet "D:\learning\learningAPP\Runtime_excel_Sheet\All.xls","Docsetting",RDtblshtname

DTrowcount = DataTable.GetSheet(RDtblshtname).GetRowCount
For i = 1 to DTrowcount
DataTable.GetSheet(RDtblshtname).SetCurrentRow(i)

HRdocstatus = DataTable.GetSheet(RDtblshtname).GetParameter("Status_HR")



If HRdocstatus = "Y" Then
Browser("learning").Page("learning").WebEdit("txtDocumentType").Set DataTable("Doc_type", RDtblshtname)
doctype= Browser("learning").Page("learning").WebEdit("txtDocumentType").GetROProperty("value")
Browser("learning").Page("learning").WebCheckBox("chkHRDoc").Set "ON"
Browser("learning").Page("learning").WebCheckBox("chkPDF").Set DataTable("PDF", RDtblshtname)
Browser("learning").Page("learning").WebCheckBox("ChkDSPDF").Set DataTable("SPDF", RDtblshtname)
Browser("learning").Page("learning").WebEdit("txtFilePath").Set DataTable("FILE_PATH", RDtblshtname) &"\" &doctype
'Browser("learning").Page("learning").WebCheckBox("chkAutomation").Set "ON"
Browser("learning").Page("learning").WebEdit("txtAutomation").Set DataTable("Usr_mail_list", RDtblshtname)
Browser("learning").Page("learning").WebButton("Save").Click

else


Browser("learning").Page("learning").WebEdit("txtDocumentType").Set DataTable("Doc_type", RDtblshtname)
doctype= Browser("learning").Page("learning").WebEdit("txtDocumentType").GetROProperty("value")
Browser("learning").Page("learning").WebCheckBox("chkPDF").Set DataTable("PDF", RDtblshtname)
cpdf = Browser("learning").Page("learning").WebCheckBox("chkPDF").GetROProperty("Checked")
Browser("learning").Page("learning").WebCheckBox("ChkDOC").Set DataTable("Doc", RDtblshtname)
cdoc = Browser("learning").Page("learning").WebCheckBox("ChkDOC").GetROProperty("Checked")
Browser("learning").Page("learning").WebCheckBox("chkHTML").Set DataTable("HTML", RDtblshtname)
chtml = Browser("learning").Page("learning").WebCheckBox("chkHTML").GetROProperty("Checked")
Browser("learning").Page("learning").WebCheckBox("chkTXT").Set DataTable("TXT", RDtblshtname)
ctxt = Browser("learning").Page("learning").WebCheckBox("chkTXT").GetROProperty("Checked")
Browser("learning").Page("learning").WebCheckBox("chkXLS").Set DataTable("XLS", RDtblshtname)
cxls = Browser("learning").Page("learning").WebCheckBox("chkXLS").GetROProperty("Checked")
Browser("learning").Page("learning").WebCheckBox("chkemailid").Set DataTable("CON_N_EMAIL", RDtblshtname)
Browser("learning").Page("learning").WebCheckBox("chkbxZip").Set DataTable("EZIP", RDtblshtname)
czip = Browser("learning").Page("learning").WebCheckBox("chkbxZip").GetROProperty("Checked")

Clntcode = DataTable.GetSheet(RDtblshtname).GetParameter("Clnt_code_type")

If Clntcode = "Delimiter" Then
	Browser("learning").Page("learning").WebRadioGroup("rdoClntcodetype").Select "rdoClntcodeDilm"
	'Browser("learning").Page("learning").WebRadioGroup("rdoClntcodetype").WaitProperty "Enabled",True,1000
	Browser("learning").Page("learning").WebEdit("tbxdelimiter").Set DataTable("Delimiter", RDtblshtname)
	Browser("learning").Page("learning").WebEdit("tbxdlimIndx").Set DataTable("Delimiter_position", RDtblshtname)
	else
	Browser("learning").Page("learning").WebRadioGroup("rdoClntcodetype").Select "rdoClntcodeFxd"
	'Browser("learning").Page("learning").WebRadioGroup("rdoClntcodetype").WaitProperty "Enabled",True,1000
	Browser("learning").Page("learning").WebEdit("tbxUccStarts").Set DataTable("Fixed_len_start_pos", RDtblshtname)
	Browser("learning").Page("learning").WebEdit("tbxUccLen").Set DataTable("Fixed_len_end_pos", RDtblshtname)
    End If

cprimail =  DataTable.GetSheet(RDtblshtname).GetParameter("PEMAIL")


If cprimail = "ON" Then
Browser("learning").Page("learning").WebCheckBox("chkPrimary").Set DataTable("PEMAIL", RDtblshtname)
else
Browser("learning").Page("learning").WebCheckBox("chkSecndry").Set DataTable("SEMAIL", RDtblshtname)
End If

Browser("learning").Page("learning").WebCheckBox("chkMultpleDoc").Set DataTable("MULTI_DOC", RDtblshtname)
Browser("learning").Page("learning").WebList("cboSysType").Select DataTable("SYS_CODE_TYPE", RDtblshtname)
Browser("learning").Page("learning").WebCheckBox("chkemailoptn").Set DataTable("CON_EMAIL", RDtblshtname)
Browser("learning").Page("learning").WebList("cboPwdLogc").Select DataTable("PWD_LOGIC", RDtblshtname)

Browser("learning").Page("learning").WebEdit("txtMailSubject").Set DataTable("MAIL_SUB", RDtblshtname)

Browser("learning").Page("learning").WebEdit("txtFilePath").Set DataTable("FILE_PATH", RDtblshtname) &"\" &doctype

Automation = DataTable.GetSheet(RDtblshtname).GetParameter("AUT_STA")

If Automation = "yes" Then
	Browser("learning").Page("learning").WebCheckBox("chkAutomation").Set "ON"
    Browser("learning").Page("learning").WebEdit("txtAutomation").WaitProperty "Visible",True,1000
	Browser("learning").Page("learning").WebEdit("txtAutomation").Set DataTable("Usr_mail_list", RDtblshtname)
	else
	Browser("learning").Page("learning").WebCheckBox("chkAutomation").Set "OFF"
End If

Browser("learning").Page("learning").WebEdit("txtSenderAlias").Set DataTable("SEN_ALIAS", RDtblshtname)
Browser("learning").Page("learning").WebEdit("txtSenderMailID").Set DataTable("SEN_MAIL_ID", RDtblshtname)
Browser("learning").Page("learning").WebEdit("txtBounceId").Set DataTable("BOUN_MAIL_ID", RDtblshtname)

If cpdf = "1" Then
Browser("learning").Page("learning").WebCheckBox("ChkDSPDF").Set DataTable("SPDF", RDtblshtname)
End If
If cdoc = "1" Then
Browser("learning").Page("learning").WebCheckBox("ChkDSDOC").Set DataTable("SDOC", RDtblshtname)
End If
If chtml = "1" Then
	Browser("learning").Page("learning").WebCheckBox("ChkDSHTML").Set DataTable("SHTML", RDtblshtname)
	wait(1)
    Browser("learning").Page("learning").WebCheckBox("chkbxh2p").Set DataTable("Con_HTML", RDtblshtname)
	excludeclnt =  DataTable.GetSheet(RDtblshtname).GetParameter("Ex_clnt_status")

		If excludeclnt = "yes" Then
    	Browser("learning").Page("learning").WebButton("Excl.Clnts +").Click
        Browser("learning").Page("learning").WebEdit("txtClntFilter").Set "4500|Class And Non M"
		Browser("learning").Page("learning").WebButton("+").Click

		Browser("learning").Page("learning").WebEdit("txtClntFilter").Set "4501|Class And Non M"
		Browser("learning").Page("learning").WebButton("+").Click
		End If
End If

If ctxt = "1"  Then
	Browser("learning").Page("learning").WebCheckBox("ChkDSTXT").Set DataTable("STXT", RDtblshtname)
End If

If cxls = "1" Then
	Browser("learning").Page("learning").WebCheckBox("ChkDSXLS").Set DataTable("SXLS", RDtblshtname)
End If

If czip = "1" Then
	Browser("learning").Page("learning").WebCheckBox("chkbxPassReq").Set DataTable("ZIPPWD", RDtblshtname)
End If

Browser("learning").Page("learning").WebElement("MailBody").Object.innerHTML= DataTable("MailBody",RDtblshtname)

Browser("learning").Page("learning").WebButton("Save").Click

	If Browser("learning").Page("learning").WebElement("Record(s) saved successfully").Exist(1) then
			lbltext = Browser("learning").Page("learning").WebElement("Record(s) saved successfully").GetROProperty("Innertext")
			DataTable.GetSheet(RDtblshtname).GetParameter("Actual_Result").Value = lbltext
	elseif  Browser("learning").Dialog("Windows Internet Explorer").Exist(1) Then

			poptext = Browser("learning").Dialog("Windows Internet Explorer").Static("Please select Signatory").GetROProperty("Text")
			Browser("learning").Dialog("Windows Internet Explorer").WinButton("OK").Click
			DataTable.GetSheet(RDtblshtname).GetParameter("Actual_Result").Value = poptext
     End If



exresult= DataTable.GetSheet(RDtblshtname).GetParameter ("Expected_Result")
Acresult =DataTable.GetSheet(RDtblshtname).GetParameter ("Actual_Result")

If exresult = Acresult Then
DataTable.GetSheet(RDtblshtname).GetParameter("Status")= "PASS"
else
DataTable.GetSheet(RDtblshtname).GetParameter("Status") = "FAIL"
End if

Browser("learning").Page("learning").WebButton("Reset").Click
wait(1)
End If
Set mth = Nothing

Next

DataTable.ExportSheet "D:\learning\learningAPP\Runtime_excel_Sheet\"&RDtblshtname&".xls",RDtblshtname
'Pos = RepositoriesCollection.Find(RepPath)
'Repositoriescollection.Remove(Pos)
End Function
End Class

